    desc = Right(prodId, numChars - numToDrop)
    Debug.Print desc
    desc = Replace(desc, "_", " ")
    Debug.Print desc
    desc = WorksheetFunction.Proper(desc)
    Debug.Print desc